home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 04 / 4 / DISK0442.ZIP / SAMPLE.MAX < prev    next >
Text File  |  1987-10-04  |  284b  |  7 lines
  1. DO SPADDR[1]@.STRNG[21+I+BROFF]:=CPN[I];??
  2.   ?WITH TPTR@ DO BEGIN~---~END;??
  3.   ?GMXD:=ORD(TPTR@.LDPH)-ORD(LVL)+2;??
  4.   ?LINLINK(BCK,ORD(LVL)-2);~OUTPAGE(BCK)?#
  5. WITH TPTR@ DO BEGIN~---~END;??
  6.   ?BCK@.LS:=LSPH;~BCK@.ST:=STPH;~BCK@.NXT:=NIL;~(*BCK@.LD:=~LDPH*)??
  7.   ?(*RESTORE ELDEST